home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9009a.d64 / apfel + julia (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  61 lines
  1. 1000 REM MANDELBROT/JULIAMENGEN-GENERATOR
  2. 1010 REM (C) 1990 BY BERND WIEBELT
  3. 1020 REM
  4. 1030 IF A=0 THEN A=1:LOAD "GRAPHTOOL.OBJ",8,1
  5. 1040 IF A=1 THEN A=2:LOAD "MANDELASS.OBJ",8,1
  6. 1050 DIM O1(320):DIM O2(320)
  7. 1060 YA=199:XA=319:REM CHR$RAFIKAUFLOESUNG
  8. 1070 PRINT"[147]M)ANDELROT ODER J)ULIAMENGEN
  9. 1080 [161]A$:[139]A$[178]"" [176] (A$[179][177]"M" [175] A$[179][177]"J") [167]1080
  10. 1090 [139]A$[178]"M" [167] MJ[178]0
  11. 1100 [139]A$[178]"J" [167] MJ[178]1
  12. 1110 [133]"REALMIN : ";RI
  13. 1120 [133]"REALMAX : ";RA
  14. 1130 [133]"IMAGMIN : ";II
  15. 1140 [133]"IMAGMAX : ";IA
  16. 1150 [133]"MAXIMALE REKURSIONSTIEFE: ";MT
  17. 1160 XS[178](RA[171]RI)[173]XA:YS[178](IA[171]II)[173]YA:[143] TRANSFORMATIONSKONSTANTEN BERECHNEN
  18. 1170 SY[178]0:[139] [182](II)[178][182](IA) [167] SY[178]1:[143] SYMMETRIECHECK !
  19. 1180 [139] MJ[178]0 [167] 1210
  20. 1190 [133]"REELLER     C-TEIL : ";CR
  21. 1200 [133]"IMAGINAERER C-TEIL : ";CI
  22. 1210 [158] 49152:[158] 49158,0,1: [143] GRAFIK-INITIALISIERUNG
  23. 1220 [129] X[178]0 [164] XA:O1(X)[178]MT:O2(X)[178]MT:[130]
  24. 1230 [129] Y[178]0 [164] YA:[143] PUNKT FUER PUNKT UNTERSUCHEN
  25. 1240 L1[178]MT:L2[178]MT
  26. 1250 [129] X[178]0 [164] XA
  27. 1260 R[178]RI[170]X[172]XS:I[178]II[170]Y[172]YS
  28. 1270 [139] MJ[178]0 [167] [158] 50688,0,0,R,I,4,MT:[143] MANDELBROTREKURSIONEN DURCHFUEHREN
  29. 1280 [139] MJ[178]1 [167] [158] 50688,R,I,CR,CI,4,MT:[143] JULIA-REKURSIONEN DURCHFUEHREN
  30. 1290 T[178][194](2)
  31. 1300 [139] T[179]MT [137] 1340:[143] MAXIMALE REKURSIONSTIEFE ERREICHT?
  32. 1310 [158]49167,X,Y:[139] SY[178]0 [137] 1340
  33. 1320 [139] MJ[178]0 [167] [158] 49167,X,YA[171]Y
  34. 1330 [139] MJ[178]1 [167] [158] 49167,XA[171]X,YA[171]Y
  35. 1340 [139] (T[177][178]L1) [176] (L2[177][178]L1) [137] 1390:[143] LINKEN UND RECHTEN NACHBARPUNKT TESTEN
  36. 1350 [158] 49167,X[171]1,Y
  37. 1360 [139] SY[178]0 [137] 1390
  38. 1370 [139] MJ[178]0 [167] [158] 49167,X[171]1,YA[171]Y
  39. 1380 [139] MJ[178]1 [167] [158] 49167,XA[171]X[170]1,YA[171]Y
  40. 1390 L2[178]L1:L1[178]T
  41. 1400 [139] (T[177][178]O1(X)) [176] (O2(X)[177][178]O1(X)) [137] 1450:[143] UNT. UND OB. PUNKT TESTEN
  42. 1410 [158] 49167,X,Y[171]1
  43. 1420 [139] SY[178]0 [137] 1450
  44. 1430 [139] MJ[178]0 [167] [158] 49167,X,YA[171]Y[170]1
  45. 1440 [139] MJ[178]1 [167] [158] 49167,XA[171]X,YA[171]Y[170]1
  46. 1450 O2(X)[178]O1(X):O1(X)[178]T
  47. 1460 [130] X:[139] SY[178]1 [175] Y[177]YA[173]2 [167] Y[178]YA
  48. 1470 [130] Y
  49. 1480 [161] A$:[139] A$[178]"" [167] 1480
  50. 1490 [158]49155:[153]"LOADBILD ABSPEICHERN (J/N) ?"
  51. 1500 [161] A$:[139] A$[178]"" [167] 1500
  52. 1510 [139] A$[179][177]"J" [137] 1070
  53. 1520 [133] "FILENAME : ";B$:[158]50694,B$,8
  54. 1530 [153]"DAS BILD KANN DURCH FOLGENDE"
  55. 1540 [153]"ANWEISUNGEN WIEDER ANGEZEIGT WERDEN:"
  56. 1550 [153]"SYS 49158,0,1"
  57. 1560 [153]"SYS 50691,";[199](34);B$;[199](34);",8"
  58. 1570 [153]"SYS 49152"
  59. 1580 [161]A$:[139] A$[178]"" [167] 1580
  60. 1590 [137] 1070
  61.